COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	
C00005 ENDMK
C⊗;

VARIABLE /DSIG;
ARRAY R1[1280],R2[888],R3[620],R4[458],R5[282],R6[294]
	,R7[462],R8[284],R9[308];

COMMENT: Sum of delay memory sizes = 4875
	 Reverberation time = 1.20 seconds
	 Clock rate = 25600
	 Distance to first reflector = 1.88 meters;

INSTRUMENT ALLPASS;
I_ONLY
    BEGIN
	PRINT "   ALLPASS REVERB ";
	REVINIT←1;
	IF
	    SRATE ≠ 25600
	 THEN
	    PRINT "
WARNING: SRATE does not match reverberator rate. ";
    END;

REV2(DSIG,1279, .750,R1);
REV2(U1,887, .720,R2);
REV2(U2,619, .691,R3);
REV2(U3,457, .649,R4);
   REV2(U4,281, .662,R5);
   REV2(U4,293, .650,R6);
   REV2(U4,461, .646,R7);
      REV2(U7,283, .660,R8);
      REV2(U7,307, .637,R9);
OUTA ← OUTA+U5;
OUTB ← OUTB+U6;
OUTC ← OUTC+U8;
OUTD ← OUTD+U9;
DSIG←0;
END;